home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Purity / Purity #22 (1994-01-19)(Diesel)(DE)[WB].zip / Purity #22 (1994-01-19)(Diesel)(DE)[WB].adf / IFF2Src / WBpic.68000.iff.p < prev    next >
Text File  |  1994-01-18  |  982b  |  39 lines
  1.  
  2. { Und so sieht das ganze dann als Pascalinclude aus: }
  3.  
  4. { Iff2Src conversion: WBpic.68000.iff }
  5.  
  6. Const
  7.  
  8.  data : Array[1..20480]of Short =
  9.   (
  10.   { * Plane 0 * }
  11.   $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
  12.  
  13.   .......
  14.  
  15.   $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  16.   );
  17.  
  18.  
  19.  cmap : Array[1..4] of Short =    { Oder auch 0..3, wies in Pascal üblich ist }
  20.   (
  21.   $0AAA,$0000,$0FFF,$0669
  22.   );
  23.  
  24.  
  25.   im : Image =
  26.   (
  27.   0,0,
  28.   640,256,
  29.   2,
  30.   Adr(data[1]),  { Muss bei einigen Compilern nachtraeglich im Programm
  31.            eingetragen werden: im.InageData := Adr(data[1]);    }
  32.   $ff,$0,
  33.   NIL
  34.   };
  35.  
  36.  
  37.  
  38.  
  39.